home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / misc_pto / autil100 / splat.asi < prev    next >
Text File  |  1991-11-11  |  429b  |  38 lines
  1. start:
  2.  
  3. rem This program "rewards" incorrect answers.
  4.  
  5. rem It requires approximately 64K of RAM.
  6.  
  7. width 40
  8. locate 81,81
  9.  
  10. for a=1 to 1000
  11. sound a,1
  12. next a
  13. for wait=1 to 5000
  14. next wait
  15.  
  16. cls
  17. locate 12,18
  18. a$=chr$(15)
  19. print a$
  20. color 7,8
  21. locate 14,16
  22. print "Splat."
  23.  
  24. sound 8000,5
  25.  
  26. locate 81,81
  27.  
  28. for delay=1 to 10
  29. for delayagn=1 to 32000
  30. next delayagn
  31. next delay
  32. color 7,0
  33.  
  34. finish:
  35. cls
  36. width 80
  37. end
  38.